perm filename QCOUNT.LAP[LSP,SYS] blob
sn#067863 filedate 1974-01-15 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 (OPS MOVSI 205000 ADDM 272000)
C00004 ENDMK
Cā;
(OPS MOVSI 205000 ADDM 272000)
(LAP FOOCNT SUBR)
(CAIE 7 (QUOTE SUBR))
(CAIN 7 (QUOTE FSUBR))
(JRST 0 TAG1:)
(CAIE 7 (QUOTE LSUBR))
(POPJ P)
TAG1:
(PUSH P 1)
(PUSH P 13)
(HRRZ 13 0 6)
(JUMPE 13 MAKCNT:)
(HLRZ 1 0 13)
(CAIN 1 (QUOTE COUNTER))
(JRST 0 GOTCNT:)
MAKCNT:
(MOVEI 1 0)
(PUSH P 2)
(MOVE 2 13)
(CALL 2 (E CONS))
(MOVEI 2 (QUOTE COUNTER))
(CALL 2 (E XCONS))
(HRRM 1 0 6)
(MOVE 13 1)
(POP P 2)
GOTCNT:
(HRRZ 13 0 13)
(MOVSI 1 1)
(ADDM 1 0 13)
(POP P 13)
(POP P 1)
(POPJ P)
NIL
(LAP FOONIT SUBR)
(MOVE 6 1)
(HLRZ 7 0 6)
(HRRZ 6 0 6)
(CALL 0 (E FOOCNT))
(POPJ P)
NIL